home *** CD-ROM | disk | FTP | other *** search
/ The Business Master (3rd Edition) / The Business Master (3rd Edition).iso / files / datature / omahadb / hello.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1988-11-05  |  1.7 KB  |  24 lines
  1. 1000  ON ERROR GOTO 1020
  2. 1010  OPEN "DD" FOR INPUT AS 1:INPUT #1,DD$:CLOSE:GOTO 1030
  3. 1020  RESUME 1030
  4. 1030  CLOSE:ON ERROR GOTO 0
  5. 1040  KEYOFF
  6. 1050  DATA 4:DATA The Omaha DataBase Program, Copyright (c) 1984 1988,by Gerald E. Gonderinger, Especially Created for Use in the Archdiocese of Omaha:DATA Version 2.00:CLS:COLOR 0,7:LOCATE 2,9:PRINT" ";CHR$(201);STRING$(60,205);CHR$(187);" "
  7. 1060  FORX=1TO10:LOCATEX+2,9:PRINT" ";CHR$(186);STRING$(60,32);CHR$(186);" ":NEXT:LOCATE13,9:PRINT" ";CHR$(200);STRING$(60,205);CHR$(188);" ":LOCATE3,1:READNL:FORX=1TONL:READA$(X):LOCATE3+(X*2),40-(LEN(A$(X))/2):PRINTA$(X):PRINT:NEXT
  8. 1070  COLOR7,0:LOCATE20,1:PRINT"KEY";STRING$(77,"THEN");"CLOSE":LOCATE21,1:PRINT"OPEN":LOCATE21,79:PRINT"OPEN":LOCATE22,1:PRINT"OPEN":LOCATE22,79:PRINT"OPEN":LOCATE23,1:PRINT"OPEN":LOCATE23,79:PRINT"OPEN";:LOCATE24,1:PRINT"SCREEN";STRING$(77,"THEN");"LOAD";:ONERRORGOTO1150
  9. 1080  BEEP:LOCATE 15,24:PRINT"The current date is ";DATE$:LOCATE 21,3:INPUT"Enter new date    ";D$:IF D$<>""THEN DATE$=D$
  10. 1090  LOCATE 21,3:PRINT STRING$(50,32):LOCATE 15,44:PRINT DATE$:LOCATE 16,24:PRINT"The current time is ";TIME$:LOCATE 21,3:INPUT"Enter new time    ";T$:IF T$<>""THEN TIME$=T$
  11. 1100  LOCATE 21,3:PRINT STRING$(50,32):LOCATE 16,44:PRINT TIME$:FOR X=1 TO 10:KEY X,"":NEXT:
  12. 1110  LOCATE 21,3: PRINT STRING$(50,32):LOCATE 21,3: PRINT "WHICH DRIVE FOR MASTER DATA DISK (A-H) ===>    ";DD$: LOCATE 21,48: INPUT Q$: IF Q$<>"" THEN DD$=Q$
  13. 1120  IF INSTR("ABCDEFGHabcdefgh",DD$)=0 THEN BEEP:GOTO 1110
  14. 1130  IF Q$="" THEN 1140 ELSE OPEN "DD" FOR OUTPUT AS 1:PRINT #1,DD$:CLOSE
  15. 1140  RUN"MENU":END
  16. 1150  LOCATE 21,3:PRINT"Read instructions in DOS MANUAL, page 2-5, about entering date and time.":PLAY"MB":J9=2:FOR I9=1 TO 9:PLAY"L64T255O=J9;CC#DD#EFF#GG#AA#B":NEXT:FOR X=1 TO 2000:NEXT:RESTORE:GOTO 1050
  17. 40000  REM **********************************************************
  18. 40010  REM **********************************************************
  19. 40020  REM ** COPYRIGHT (C) 1984,1988  GERALD E. GONDERINGER       **
  20. 40030  REM ** CREATED FOR USE IN ARCHDIOCESE OF OMAHA              **
  21. 40040  REM ** *$50 REGISTRATION FEE FOR USE OF THIS PROGRAM        **
  22. 40050  REM **********************************************************
  23. 40060  REM **********************************************************
  24.